home *** CD-ROM | disk | FTP | other *** search
/ CD Loisirs 24 / CDL24.iso / LAPLACE / IDEM.DXR / Biographie_8_Bt Suite Bio.ls < prev    next >
Encoding:
Text File  |  1996-10-10  |  529 b   |  33 lines
  1. on mouseDown
  2.   repeat with x = 1 to 6
  3.     if label("B" & x) = the frame then
  4.       set Y to x
  5.     end if
  6.   end repeat
  7.   case Y of
  8.     1:
  9.       puppetSound("SCEN.AIF")
  10.     2:
  11.       puppetSound("TOUR.AIF")
  12.     3:
  13.       puppetSound("GROT.AIF")
  14.     4:
  15.       puppetSound("SORT.AIF")
  16.     5:
  17.       puppetSound("FIN.AIF")
  18.   end case
  19.   updateStage()
  20. end
  21.  
  22. on mouseUp
  23.   global gLow
  24.   if gLow then
  25.     set LoadLa to the frame + 10
  26.     unLoad()
  27.   else
  28.     set LoadLa to the frame + 5
  29.     preLoad(LoadLa, LoadLa + 4)
  30.   end if
  31.   go(LoadLa)
  32. end
  33.